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1.  INTRODUCTION 


1.1  BACKGROUND 

QUICKTRANS^  is  the  Navy  air-truck  transportation  network,  designed  to 
provide  a controlled,  flexible,  and  responsive  means  of  transporting  ur- 
gently required  cargo  between  terminals  of  major  Navy  interest  within  the 
continental  United  States  (CONUS) . The  goal  of  the  QUICKTRANS  transport 
facility  is  to  move  high  priority  cargo  between  any  two  QUICKTRANS  termi- 
nals in  a time  interval  no  greater  than  48  hours.  The  QUICKTRANS  trans- 
portation system  utilizes  both  air  and  truck  transport  units  and  operates 
daily  on  predetermined  time  schedules  and  routes  between  commercial  and 
military  terminals. 

Currently  the  information  required  to  develop  the  QUICKTRANS  route 
structure  is  computed  manually  at  considerable  expense  in  manpower  and 
time.  A need  has  thus  existed  for  a more  efficient  and  reliable  method  of 
determining  QUICKTRANS  route  patterns  and  airlift  requirements  information 
for  planning  purposes.  Accordingly,  a simulation  model,  QUAM,  has  been  de- 
veloped to  provide  a computer-based  approach  to  facilitate  and  reduce  the 
time  required  for  these  calculations. 

The  QUICKTRANS  system  model  has,  since  its  development,  been  exercised 
for  the  sponsor,  NAVSUP  052,  for  1)  purposes  of  debugging,  orientation, 
and  familiarization,  2)  determining  the  management  summary  formats  and 
their  utility,  3)  extending  their  in-house  route  analysis  capabilities, 
and  4)  forecasting  their  capabilities  in  meeting  projected  demands  in 
FY  76  and  77. 

1.2  PURPOSE 

The  QUICKTRANS  Airlift  Model  (QUAM),  a simulation  model  written  in 
FORTRAN  IV,  depicts  CONUS  theater  of  operation.  It  is  designed  to  fore- 
cast the  QUICKTRANS  system's  cost,  vehicle  utilization,  and  route/schedule 


^'United  States  OUICKTRANS  Airfreight  Svstem,  STANDARD  OPERATING  PROCE- 
DURES." Naval  Systems  Command,  NAVSUP  Publication  387,  July  1971. 
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load  factors  for  proposed  routes,  and  transport  units  or  vehicles.  The 
goal  of  QUAM  is  to  produce  a more  efficient  and  economical  route-planning 
and  vehicle-selection  system.  By  employing  QUAM,  the  analyst  may  predict 
the  efficiency  of  route  patterns  and,  in  particular,  route  and  segment 
load  factors,  cost  per  carried  ton  of  cargo,  cost  per  carried  ton/mile  of 
cargo,  and  utilization  of  vehicles. 

1 . 3 METHOD 

The  solution  to  simulating  the  operation  of  QUICKTRANS  for  planning 
purposes  may  be  approached  in  many  ways.  Because  of  the  fixed  route  seg- 
ment structure  of  QUICKTRANS,  a static  accumulation  method  was  selected 
for  this  study. 

Since  the  cargo  flow  is  given  with  respect  to  origin  and  destination 
terminals  and  their  related  transload  terminals,  and  the  proposed  route 
structure  consists  of  flow  patterns  between  terminals,  the  task  of  select- 
ing routes  and  vehicles  reduces  to  a comparison  of  available  segment  trans- 
port space  and  cargo  space  required.  Cargo/route  assignment  is  made  with 
respect  to  the  cargo  delivery  flow  patterns  and  the  number  of  route  seg- 
ments used  to  move  cargo  from  its  origin  to  destination  terminals.  Direct 
cargo  movement  from  origin  to  destination  terminals  is  considered  first 
and  remaining  cargo  movements  are  ordered  by  increasing  number  of  trans- 
loads needed  for  delivery. 

The  projected  cargo  flow  patterns  are  determined  from  historic  cargo 
load  data  collected  by  the  QUICKTRANS  Center,  Norfolk,  Virginia,  and 
analyzed  and  edited  by  the  Logistics  Group  at  DTNSRDC. 

QUAM  describes  the  nodes  (terminals)  and  links  (segments)  within  the 
QUICKTRANS  system  and  is  able  to  accommodate  several  types  of  planning 
problems.  It  incorporates  node  distance  tables.  Time-distance-tonnage 
relationships  are  computed  for  specified  input  and  are  presented  in 
segment /management  summaries. 

The  input  data  include  node  linkages  (segments),  routes  (sequential 
aggregations  of  segments),  vehicle  characteristics  and  their  numbers, 
nodes  (terminals)  and  their  characteristics,  cargo  quantitites,  transload 
points,  and  unit  costs. 
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Execution  of  this  simulation  computes:  the  amount  of  cargo  on-loaded, 
transloaded,  and  off-loaded  at  each  node  along  every  route;  costs  for  cargo 
movement  and  handling;  and  the  percentage  of  each  vehicle's  cargo  capacity 
used  along  each  route  segment.  The  items  calculated  include  vehicle  load 
factors;  cargo  throughput  at  nodes,  along  segments  and  routes;  ton-mileage 
figures;  cost  per  ton-mile;  and  average  distance  of  moved  cargo  (miles). 
Table  1 gives  terminals  currently  considered  by  QUICKTRANS. 

Costs  computed  by  the  model  are  of  two  types,  terminal  and  travel. 
Travel  cost  is  determined  from  the  cost  in  dollars  per  statute  mile  for  a 
given  vehicle  type  multiplied  by  the  distance  traveled  (in  statute  miles) . 
Terminal  costs  include  all  expenses  incurred  by  the  vehicle  while  at  the 
terminal;  i.e.,  entry  fees,  vehicle-servicing  charges,  and  cargo-handling 


TABLE  1 - QUICKTRANS  TERMINALS 

Program 
ID  Number 

Terminal  Name 

Transport 
Code  Name 

1 

Quonset  Point 

NCO 

2 

Wilmington 

ILG 

3 

Patuxent  River 

NHK 

4 

Norfolk 

NGU 

5 

Charleston 

CHS 

6 

Jacksonville 

NIP 

7 

Patrick  AFB 

COF 

8 

MacDill  AFB 

MCF 

9 

Key  West 

NQX 

10 

Pensaco1 a 

NPA 

11 

Dallas 

NBF 

12 

Indianapolis 

IND 

13 

San  Diego 

NZY 

14 

Point  Mugu 

NTD 

15 

Lemoore 

16 

Alameda 

17 

Paine  Field 

18 

Boston 

BOS 

19 

Philadelphia 

PHL 

20 

McGuire 

WRI 

21 

Dover 

DOV 

22 

Washington,  D.C. 

DCA 

23 

Cherry  Point 

NKT 

24 

Albany 

NAB 

25 

Corpus  Christi 

NGP 

26 

Long  Beach 

LGR 

27 

Travis  AFB 

SUU 

28 

McChord  AFB 

TCM 

29 

Whidbey  Island 

NUW 

30 

Bremerton 

PWT 

TABLE  1 - QUICKTRANS  TERMINALS  (Continued) 


Program 
ID  Number 

Terminal  Name 

31 

Atlanta 

32 

Red  River 

33 

Tinker 

34 

Pueblo 

35 

Toole 

36 

Umatilla 

Transport 
Code  Name 


ATL 

TXK 

OKC 

PUB 

SLC 


PDT 


2.  DESCRIPTION  OF  INPUT  DATA 

2.1  DESCRIPTION  OF  INPUT  CARDS 

2.1.1  Identification  Card  (IDENT) 

IDENT  gives  the  computer  run  identification  information.  Its 
format  is  alpha-numeric,  and  it  may  have  1 to  27  characters. 

2.1.2  General  Information  Card  (GEN) 

GEN  gives  the  limits  of  variables  to  be  input  and  the  control 
constants . 


TCOST  ADJT  IT 


NKGOGN 


1 5 6 10  11  15  16  20  21  25  26  35  36  45  46  55  56  65  66  68  69  80 


Variable 

NTERM 

NROUTE 

NITIN 


NKGOGN 


CLAND 

CCONVF 

TCOST 


Format 


F10.2 

F10.2 

F10.2 


Description 

Number  of  terminals  in  simulation  (]  _o  99). 
Number  of  routes  (1  to  40). 

Number  of  itineraries,  i.e.,  list  of  terminal 
numbers  given  in  order  of  vehicle  encounter. 

Used  with  route  information  (1  to  40). 

Number  of  cargo  flow  entries  (1  to  3000). 

Number  of  vehicle  types  (1  to  9). 

Cost  ($)  per  aircraft  landing. 

Conversation  factor,  lb/cu  ft  of  cargo. 

Total  terminal  cost  ($) . 

Aircraft  cost  adjustment  factor. 

Cargo  flow  table  indicator;  IT  = 1,  Table  printed. 


2.1.3  Terminal  Code  Cards  (TERM) 

The  TERM  cards  give  the  three-letter  transportation  code  for  each 
terminal  considered. 


1 2 


4 5 6 8 


69  70 


72  73 


Variable 


Format 


Description 


CODE  1-CODE  "NTERM" 


Three-letter  terminal  code. 
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2.1.4  Cargo  Modification  Card  (PERC) . 

The  PERC  cards  adjust  the  amount  of  cargo  generated  at  each  termi- 
nal without  changing  the  original  cargo  generation  input  data.  PERC  gives 
the  percent  of  increase  or  decrease  of  cargo  originating  at  a given  termi- 
nal. If  there  are  no  changes,  cards  are  blank. 


PERC  at 
terminal 
1 

PERC  at 
terminal 
2 

• ■ • 

. . . 

PERC  at 
terminal 
12 

1 

1 6 

7 

12 

13 

65 

72 

3 

80 

Variable  Format  Description 

PERC  at  terminal  12F6.0  Percent  of  increase  or  decrease  of 

1 to  99  cargo  at  each  originating  terminal. 

2.1.5  Load  Factor  Format  Cards  (CAPV). 

The  CAPV  cards  give  the  maximum  load  factor  allowed  for  each 

route. 


L0ADF1 

L0ADF2 

L0AD15 

i 

5 6 

10  11 

71 

75 

76 

80 

Variable 

Format 

Description 

L0ADF1  . . . 
for  routes 

LOADF40 
1 to  40 

15F5.0 

Maximum  load  factor 

for 

each 

route 

2.1.6  Distance  Table  Cards  (DIST) 

The  DIST  cards  give  the  distance  in  miles  between  terminals. 
DIST  cards  contain  packed  data,  three  data  items  per  word. 


DIST1 

DIST2 

DIST3 

DIST16 

DIST17 

DIST18 

45  89  12  13  60  61  64  65  68  69  72  73  80 


Variable 


Format 


Description 


DIST1, . . . ,DIST99  6112 


Distance  in  miles  between  terminals 


7 


NTRN 


1 3 


TERM 


4 6 


Variable 

NTRN 

TERM1 , . . . ,TERM20 


TERM2 


7 9 

Format 

13 

2013 


TERM20 


61  63  64  80 

Description 

Number  of  terminals  on  this  itinerary. 

Terminals  on  itinerary  in  order  of 
encounter . 


2.1.8  Route  Cards  (RTE) 

The  RTE  cards  give  all  information  necessary  to  describe  the  routes. 
The  maximum  number  of  routes  is  40. 


NTRIPS  ITN  Y RID 
P 
E 


REPEAT 


8 9 10  11  12  14  15  28 


Variable 

NTRIPS 


Format 

110 


REPEAT 


29  42 


REPEAT  REPEAT 


43  56 


57  70  71  80 


Description 

Number  of  trips  vehicle  to  make  on 
the  route  in  the  time  period  consid- 
ered. Decimal  representation 

AAAAAA. AA 


ITN 

12 

Itinerary  number. 

ITYPE 

11 

Vehicle  type 

RID 

13 

Route  identification  number. 
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2.1.9  Vehicle  Cards  (VEH) 


The  VEH  cards  give  all  Information  necessary  to  describe  lift  capa- 
bilities of  each  vehicle.  The  maximum  number  of  vehicle  types  allowed  is 
9. 


CAPACV 

CAPACW 

CSTM 

VNAM 

REPEAT 

10  11 

20  21  30 

31  36  37  72  83 

80 

Variable 

Format 

Description 

CAPACV 

F10.0 

Usable  space  in  cu  ft 

CAPACW 

F10.0 

Maximum  weight  in  lb 

CSTM 

F10.0 

Cost  per  mile  to  operate 

vehicle,  $/mi 

VNAM 

A6 

Vehicle  description  name 

. If  vehicle  is 

a truck,  "TRUCK"  must  appear  in  this  field. 

2.1.10  Cargo  Flow  Cards  (CARG) 

The  CARG  cards  give  the  quantity  of  cargo  to  be  shipped  from  a 
generation  (origin)  terminal  and  delivered  at  a destination  terminal. 

CARG  cards  also  specify  all  terminals  at  which  the  cargo  is  to  change 
routes.  These  terminals  are  defined  as  transload  terminals.  The  max- 
imum number  of  cargo  generations  allowed  is  1000. 


1 4 5 6 7 8 9 

10  11  12  13  14 

15  22  23  44  45  66  67  80 

Variable 

Format 

Description 

ITRNS1-ITRNS3 

312 

Transload  terminals  in  order  of  encounter 

IORIG 

12 

Originating  terminal 

IDES 

12 

Final  destination  terminal 

CT0NS 

F8.2 

Tons  of  cargo  to  be  shipped 

9 


3 . OUTPUT 


QUAM  output  consists  of  the  following  parts: 

(a)  Cargo  flow  table 

(b)  Routing  Error  trace  - gives  all  entries  in  the  cargo  flow  table  for 
which  routing  from  origin  to  destination  terminals  cannot  be  accom- 
plished. 

(c)  System  Cargo  Summary 

(d)  Segment  Operations  Summary  - (columns  given  as  "ton/miles  Overflow 
Upon  Departure"  and  "Pounds  Overflow  Upon  beoarture"  give  ton/miles 
and  pounds  of  cargo  assigned  to  route  in  excess  of  an  80%  load 
factor) . 

(e)  Aircraft  Management  Summary 

(f)  Truck  Management  Summary 

(g)  Overall  Management  Summary 

(h)  Cargo  Movement  Diagnostics  - specifies  computer  representation  of 
incomplete  cargo  shipment. 

4.  COMPUTER  SYSTEM  INFORMATION 

QUAM  is  written  in  FORTRAN  IV  to  run  on  the  CDC  6600  computer. 

Average  running  time  is  9 seconds  CPU  time  at  a cost  of  $3.00  per  run. 

QUAM  has  been  expanded  to  consider  a maximum  of  99  terminals  and  40  routes. 
If  the  above  variable  limits  are  reduced  to  an  average  QUICKTRANS  case  of 
20  terminals  and  10  routes,  core  allocation  can  be  reduced  to  60K. 


PROGRAM  OUAM  I INPUT , OUTPUT »T  APE5« INPUT,  TAPE6*  OUTPUT, TAPE7) 
DIMENSION  ITNAM  (991  ,TOIST(99,33)  ,CAPACV(9)  ,CAPACM(9)  ,CSTR(9), 

1 NPITIN(40),NPITNt (40,20)  ,IROUTE  (40  ) * 

2 KGOGN1  (70001  ,CGOGN2(7000> , CGOGN 3( 7 000 ) , ISEG  (40 , 19, 2) , S*GA  ( 40 , 19> 

3 SEGU(40,19)  ,SHTP(99),GEN(99)  , DEL (99) , TRANS (99)  , JSEG (<,0, 19, 3 ) 

5,I0RUN(12)  , VNAM ( 9) , VEH (2 J 

4, PHI (40 ) ,TMAV(40> , THUS (40 1 , TEMP ( 9»  ,STAN(99> , TOT ( 1 0 1 ,US (99> 

6,VEHS(9,8) , VSUMC (9)  ,CAPCV(40)  ,PEPIC(99) ,CR(9) 

OAT  A VEH/6HAIRCRF,6HTRUCK  / 

REA0(5, 77771  IORUN 
7777  FORMAT ( 12A6) 

REA0I5, 1000)  NTFRM,NROUTE,NITIN,Ni<GOGN,NVAT,CLAND,CCONVF, 

1 TCOST. ATJT.IT 

1000  FORHIT (5I5*4F10.2,T2) 

RE  AO(5 , 100 1)  (ITNAMCI),I*1,NTERH) 

1001  FORMAT ( 1 8A4 ) 

READ (5, 1007)  (PERIC(I) , 1*1, NTERM) 

1007  FORMAT { 1 2E6  • 0 ) 

RE AO(5 ,1999)  ( CAPCV 1 1) , 1= 1 ,NROUTE) 

1999  FORMAT! 15F5.0) 

IC*ELOA  T (MTERM) /3.*.9 
00  10  1=1, MTERM 

10  REAO (5, 100 ?)  (IOIST(I,J) ,J=1,IC) 

1007  FORMAT (6I12»8K) 

REAO (5, 1003)  (NPTTIN(I), (NPITN1 ( I, J) , J= 1 ,2 0) ,I=1,NITIN) 

1003  FORMAT (2113,177) 

RE  A0(5 , 1004)  ( IROUTE (I) ,I=l,NROUTF) 

1004  FORMAT (5114, 10X1 

REAO  (5, 100  5)  (CAPACV(I),CAPACW(T),CSTR(I)»VNAM(I),I  = 1,NVAT) 

1005  FORMAT(2(3F10.0,A6I ) 

REAO  (5,  1006)  (KGOGN1 (I),CGOGN2(I),I=l,NKCOGN) 

1006  FORMAT (3(11 4, F8. 2) ) 
no  242  1=1 ,NKGOGN 
TORIG=MOC (KGOGN1 (I) /10Q«100! 

242  CGOGN2 ( T )=CGOGN2 (T ) *PERIC ( IORIG) *CG0GN2 (I) 

TF(IT.EO.l)  CALL  TABLE (NTERH, ITNAM, NKGOGN, KGOGN1 .CG0GN2, IOENT) 
CALL  LI MKS ( NTTIN,  NKGOGN ,NPIT IN, NPITN1, KGOGN1, ITNAM) 

ICOUNT=0 

DO  240  «=1, NKGOGN 
IORIG=  HOC  (KGOON1  (0/100,100) 

CGOGN3  (K)  = (CGOGN2  <K)*20  00. 1/CCONVF 
CGEN=CGFN*CGOGN3(K) 

GEN (TOPIC )=GEN (TORIG) *CGOGN3 (K) 

IOES=MOC (KGQGNl(K) ,100) 

IOESl*MOC(KGOGNl(K 1/10000,100) 

I0FS2=M0r (KGOGN1 (K)/1000000,100) 

IOES3=MOC (KGOGN1 (K)/10** 8,100) 

IF(IOESl.LE.O)  GO  TO  240 
IF( IOES2.  ME. 0 ) GO  TO  241 
I COUNT  = IC  OUNT ♦ 1 

KGOGN1 (NKGOGN*ICOUNT) =1000 000 00 00 *IOES*IDESl*l 000 00000 
CGOGN3 (NKG0GN*IC0UNT)=CG0GN3 (K) 

GO  TO  240 

241  IF(IOES3.NE.O)  GO  TO  141 


QAM 

5 

QAM 

10 

QAM 

15 

QAM 

20 

QAM 

25 

QAM 

30 

QAM 

35 

QAM 

40 

QAM 

45 

QAM 

50 

QAM 

55 

QAM 

60 

QAM 

65 

QAM 

70 

QAM 

75 

QAM 

SO 

QAM 

85 

QAM 

90 

QAM 

95 

QAM 

100 

QAM 

105 

QAM 

110 

QAM 

115 

QAM 

120 

QAM 

125 

QAM 

130 

QAM 

135 

QAM 

140 

QAM 

145 

QAM 

150 

QAM 

155 

QAM 

160 

QAM 

165 

QAM 

170 

QAM 

175 

QAM 

180 

QAM 

185 

QAM 

190 

QAM 

195 

QAM 

200 

QAM 

205 

QAM 

210 

QAM 

215 

QAM 

220 

QAM 

225 

QAM 

230 

QAM 

235 

QAM 

240 

QAM 

245 

QAM 

250 

QAM 

255 

QAM 

260 

QAM 

265 

QAM 

270 

IC0UNT«IC0UNT»1 

KGor.Nt  (nkgogn*icount)*ioooooooooo»iocsi*ioooooooo»iocsz*ioooo 

C60GN3  (NKGOGN* ICOUNT) *CGOGN3  (K) 

ICOUNT»TCOUNT4 1 

KGOGN1 (NKGOGNdCOUNT)»IOE S+IOES2* 1000 000 00 
CGOGN3(NKGOGN»ICOUNT)*CGOGN3<K» 

GO  TO  2A0 

1M  KGOGN100«HOO(KGOGN1(K),  1000000) 

ICOUMT«ICOUNT*l 

KGOGN1 ( NKGOGN+ICOUNT) »1 0**  lOdDESl  *10**OdDES2*  10000 
CGOGN3 <NKGOGN»ICOUNT)*CGOGN3 (K) 

TCOUNT* I COUNT* 1 

KGOGN1 ( NKGOGN+ICOUNT) »IOES2*1O**0*IOES3*1OOOO 
CGOGN3  (WCGOGNdCOUNT)  =CGOGN3  < K» 

TCOUNT=ICOUNT»l 

KGOGNl(NKGOGN+ICOUNT)*lO**lO*IOES3»lO**0dOES 
CGOGN3 (NKGOGN+ ICOUNT) =CGOGN3 (K) 

2*0  CONTINUE 

NKGOGN=NKGOGNdCOUNT 
OO  200  1*1,* 

OO  202  J*l.NROUTE 
OAY=FLO»T(TROUTE( J>/1 000000)  *.01 
20  •»  TTN=MOO(I90UTECJ)/10000,100) 

ITYPE*NCO  ( IROUTE (Jj/1000«10) 

TOTL=CAPAC)MITYPE>  *OAY 
IF(L.EO.l)  TOTL-TOTL*.50 
NIT*NPITINdTN) 

IFtL.NE.l)  GO  TO  325 
JTN*NIT-1 

00  205  K=1,JTN 

TSEG(J,K.l>=CAPAC)MITYPE)*OAY  *CAPCV(J)  *.5 
SEGA ( J * K) =SEGA(J«K)YCAPACVdTVPE)*OAY  »,5 

205  TSEG(J,K*2)=CAPACV< I TYPE  I *OA Y *CAPCV(J) 

325  OO  206  K=l,NKGOGN 

IF (CGOGN3 (K)  .LE.O .0)  GO  TO  206 

NORIG=0 

NOEL*0 

NTRANS*0 

NTPANsO 

I OR IG=  H OO  C K GOGN 1(K)/100, 100) 

1 OR  IG  T = *0  0 (FG  OGN1 (IO /10000000  0, 100 > 

IOEST=HOO (KGOGN1 (K) , 100  ) 

IOESTT*  HCO (KGOGN1  00/100  0 0, 10  0) 

GO  TO  (501,502,503,  555), L 

501  IF CIORIGT.NF.O)  GO  TO  206 
IF(IOESTT.NE.O)  GO  TO  206 

GO  TO  555 

502  IFdORIGT.FO.O,  ANO,  IOESTT  ,NE  , 0 ) GO  TO  555 
GO  TO  206 

503  IFIIORIGT.NE.O. AND. IOESTT.NE. 0 ) GO  TO  555 

GO  TO  206 

556  ICHFCK=KGOGN100/10000000000 

ISTART - 0 
IENO=0 

OO  207  FK=1,NIT 


NTRH*NPITN1 (ITN.KK) 

QAM 

550 

I F 1 1ST  ART . ME  • 0 ) GO  TO  210 

QAM 

555 

IFIIORIG.EO.NTRM)  GO  TO  209 

QAM 

560 

IF! IORIGT .EQ.NTRM)  GO  TO  219 

QAM 

565 

GO  TO  207 

QAM 

570 

209 

ISTART*KK 

QAM 

575 

NORIG* NTRN 

QAM 

580 

GO  TO  207 

QAM 

585 

219 

ISTART*-KK 

QAM 

590 

N0RI6*  NTRN 

QAM 

595 

IFIICHECK.LE.O)  NTRAN*NTRM 

QAM 

600 

GO  TO  207 

QAM 

605 

210 

IF ( IDES T.EQ.NTRM)  GO  TO  211 

QAM 

610 

IFITOESTT. EQ.NTRM)  GO  TO  221 

QAM 

615 

GO  TO  207 

QAM 

620 

211 

TFNO*KK 

QAM 

625 

NOEL=NTRM 

QAM 

630 

GO  TO  226 

QAM 

635 

*21 

IENO=-KK 

QAM 

660 

IF ( ICHECK.LF .01  NTRANS*NTRN 

QAM 

665 

GO  TO  226 

QAM 

650 

207 

CONTINUE 

QAM 

655 

GO  TO  20* 

QAM 

660 

??r> 

LIM1*TABS(  1ST  ART)  *1 

QAM 

665 

LIM2=IA9SIIEN0)  -1 

QAM 

670 

00  505  KK=LIM1,LIM2 

QAM 

675 

IFINORIG.NE.NPITN1 CITN.KKII  GO  TO  505 

QAM 

6S0 

IF ( ISTA  PT.GT. 0 1 ISTART=KK 

QAM 

685 

IF(ISTART.LT.O)  ISTART=-KK 

QAM 

690 

GO  TO  227 

QAM 

695 

505 

CONTINUE 

QAM 

700 

227 

TI*I ABS ( 1ST ART)  ♦! 

QAM 

705 

JJ=IABSIIENO)-l 

QAM 

710 

NT*TSEGIJ, 11-1,1) 

QAM 

715 

CUBES*ISFG(J,II-1»2) 

QAM 

720 

IF(JJ.LT.II)  GO  TO  636 

QAM 

725 

00  230  KK=II,JJ 

QAM 

730 

TF  (MT.GT.ISEG(J,KK,1))  NT=I SEG 1 J,KK , 1 ) 

QAM 

735 

IFICU9ES  .GT.ISEGIJ,KK,2> ) CUBE S*IS EGI J, KK,2) 

QAM 

760 

730 

CONTINUE 

QAM 

765 

636 

TFa.EQ.,  1.AN9.MT.GT.T0TL)  WT*TOTL 

QAM 

750 

IF  IMT/CCONVF.LT. CUBES)  CUBES* MT/CCONVF 

QAM 

755 

11*11-1 

QAM 

760 

IFCCUBFS.LT. CGOGN3IK))  GO  TO  228 

QAM 

765 

CUBES*  CG0GN3OC) 

QAM 

770 

CGOGN3 (K)*0. 

QAM 

775 

GO  TO  229 

QAM 

780 

220 

CGOGN3 ( K )*CGOGN3  IK) -CUBES 

QAM 

785 

229 

TCUBES*  CUBES* .5 

QAM 

790 

JSEG(J,IT,1)=JSEGIJ,II,1)»ICUBES 

QAM 

795 

IF (IENO.GT .0)  JSE  Gl  J,  JJ  * 2) * JSEG CJ , JJ,2 ) *ICUBES 

QAM 

800 

I FI IENO.LT .0)  JSEGIJ.JJ.3) *JSEG (J , JJ ,3 ) ♦ICUBES 

QAM 

805 

00  231  KK=II,JJ 

QAM 

810 

ISEGCJ,KK,ll=ISEG(J,KK,l)-CU9ES*CCONVF 

QAM 

815 

ISEGCJ»KK»2)=ISEGIJ»KK«2) -CUBES 

QAM 

820 

16 


231 

SEGUU,KK)*SEGU(J,KK)  ♦CUBES 

QAM 

025 

LM1*IA8S(ISTART) 

QAM 

030 

LM2«IABS(IEN0>-1 

QAM 

035 

00  20  LK=LM1,LM2 

QAM 

040 

LM3-LM1M 

QAM 

045 

LM4*LM2M 

QAM 

050 

T0RG*NPITN1 (ITN.LK) 

QAM 

055 

00  25  MN=LM3,LM4 

QAM 

060 

T0ES*NPITN1  ( ITN  »MM) 

QAM 

065 

25 

WRTTE(7,7000>  IORG,IOES,CUBFS 

QAM 

070 

7090 

FORMAT(2T5,F19.2> 

QAM 

0 75 

20 

CONTINUE 

QAM 

oeo 

IF(ISTART.GT.O) 

QAM 

0 05 

t SHIP(NORIG)*SHIP( NOR TGI  ♦CUBES 

QAM 

090 

IF(NOEL.NF.O)  OFL  «NOEL»*OEHNOEL>  ♦CUBES 

QAM 

095 

IF(NTRAFS.NF.O)  TRANS (NTRANS) =TRANS (NTRANS) ♦CUBES 

QAM 

900 

IF(NTRAK.NE.O)  TRANS  (NTRAN )* TRANS (NTRA N> ♦CUBES 

QAM 

905 

IF(NTRAN.NE.O)  CTRANS*  CTRANS^CUBES 

QAM 

910 

IF(NTRANS.NF.O)  CTRANS*CTRANS 

♦CUBES 

QAM 

915 

IFCNOFL.NE.O)  coel=coel^cubes 

QAM 

920 

CSHIP=CSHIP^CU0ES 

QAM 

925 

205 

CONTINUF 

QAM 

930 

202 

CONTINUE 

QAM 

935 

200 

CONTINUE 

QAM 

940 

FNOFILE  7 

QAM 

945 

WRITE ( 6 ,4000)  IORUN 

QAM 

950 

4000 

FORMAT <1H1,4X»12A6 

QAM 

955 

1 »25(7),50X»*QUICKTRANS 

AIR-LIFT  MODEL *776 OX »*(QUAM)*I 

QAM 

960 

WRITE ( 5*2005) 

QAM 

965 

00  400  I=1,NTERW 

QAM 

970 

ST  AN( I ) *0 

QAM 

975 

00  415  JJ=t,NKGOGN 

QAM 

900 

IF(CG0GN3(JJ) .LE.O.O)  GO  TO  415 

QAM 

905 

IF  ( MOO ( FGOGN1 ( JJ) /100  ,100). 

NE.I)  GO  TO  416 

QAM 

990 

STAN(I)=STAN(I)^CG0GN3( JJ) 

QAM 

995 

GO  TO  415 

QAM 

1000 

415 

TF(MOO(KGOGNl(JJ)7100000000,100) 

.EQ.I)  US(I)=US(I) ♦CGOGN3IJJ) 

QAM 

1005 

415 

CONTINUE 

QAM 

1010 

TEMP(6)=US(I)*CCONVF 

QAM 

1015 

TEMP(5)=STANCI)  *CCONVF 

QAM 

1020 

TEMPO  )=GFM(T)*CCONWF 

QAM 

1025 

TEMP(2)*SMIP(I)*CCONVF 

QAM 

10  30 

TEMP ( 1 ) =OEL  ( I ) *CCONVF 

QAM 

1035 

TFMP(4) =TRANS ( I)*CCONVF 

QAM 

1040 

00  500  IL=1,6 

QAM 

1045 

500 

TOT(LU)  =T0T(LL)  ♦ TEMP(LL) 

QAM 

1050 

400 

WRITE(6.?007)  ITNAM(I) , (TEMP( J) , 

J»l,6) 

QAM 

1055 

WRITE ( 6 ,3  0 00)  (TOT (III ,Ll=l,6) 

QAM 

1060 

00  300  1= 1 ,NROUTF 

QAM 

1065 

RMI(I)=0 

QAM 

1070 

TMAV(I)=0 

QAM 

1075 

TMUS( I ) -0 

QAM 

1060 

J=MOC(IROUTE(T),1000) 

QAM 

1065 

K=MOO( IROUTF (I) 71000,10) 

QAM 

1090 

WR ITF ( 5 ,2  0 00 ) J ,VNAM(K> 

QAM 

1095 

17 
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ITN*  MOOIIROUTFin/10000,100) 

QAM 

1100 

HT«NPITTN(ITN)  -1 

QAM 

1105 

00  30?  JJ=1  , 5 

OAM 

1110 

30? 

TOT (JJI*0.0 

QAM 

1115 

00  301  J* 1 »NT 

QAM 

11?0 

T0PIG=NPTTN1IITN,J» 

QAM 

1125 

T0FS*NPITN1(TTN,J+1I 

QAM 

1130 

30* 

TFNPIll  =FLOAT(IROUTE  (TI/1000000)*.  01 

QAM 

1135 

K*FL0AT(I0ES>/3.4.9 

QAM 

11*0 

IT VPE=MCO I IROUTF I I>/1000,10) 

QAM 

11*5 

M=MOO(IOES,3» 

QAM 

1150 

IFIM.IE.O)  M*3 

QAM 

1155 

TEMPI? >=MOO( 10 1ST (IORTG,*) /10 00 0»* (M-l » *10000 > 

QAM 

1160 

TEMP(3>=CAPACW(ITypei  * TEMP  III 

QAM 

1165 

RMHI)=RMI(H  ♦TFMPI?»*TEMPI1» 

QAM 

1170 

TEMPIM=TEMPI?»*TFMPI3)  /2000. 

QAM 

1175 

TFMPI5)=SEGOII,JI  *CCONVF 

QAM 

1160 

TM»Vin=TM«VII)*TEMPIM 

QAM 

1165 

TEMPI6»=TEMPI5»»TEMPI2) /2000 . 

QAM 

1190 

TMUS (11  = TMUS I I • ♦ TFNPI6 ) 

QAM 

1195 

TFITFMPI?!  .GT.0.01  TEMP  17)  *TEMP  16 » /TEMP  (*»  *100  . 

QAM 

1200 

TEMPI  8)  =0  • 

QAM 

1?05 

IF(TEMP(*>*.S.LF.TEMP(6)>  TEMP 1 8>  = TEMP  16) - I .8* TEMP  1 4) ) 

QAM 

1?10 

IFITEMPI?) .LF.0.0)  GO  TO  301 

QAM 

1215 

TEMPI 5 I =TEMP (8)*?000,  /TEM° (?) 

QAM 

1??0 

00  303  JJ=1*8 

QAM 

1225 

TF I J J. EQ.6 ) GO  TO  303 

QAM 

1230 

TOT  I JJ} =TOT I JJI ♦TEHPIJJ41I 

QAM 

1235 

303 

CONTINUE 

QAM 

12*0 

301 

WRITE  I*  * ?00 1)  ITNAM(IORIG),ITNAM(IOESI, (TEMP (L ) ,L«1,9> 

QAM 

12*5 

TFITMAV (I) .GT.O)  TOT(6l=TMUS(I)/TMAV!I»  »100. 

QAM 

1250 

WRITE!*, ?011»  (TOT(JI,J=l,6l 

QAM 

1255 

?011 

FORMAT! //5X,*T0TAL*,16X, F6 . 0 , 1 X , 2( *X , Fl2 . 0 > , ?F 1 2 . 0, *X , F8 . 3, 

QAM 

1260 

1 F1*.0,?X,F1*.0 I 

QAM 

1265 

WRITEI6.2002) 

QAM 

1270 

ON=0 

QAM 

1275 

OFF =0 

QAM 

1280 

00  318  Ll=l,6 

QAM 

1265 

310 

TOTILLI =0 

QAM 

1290 

NT=NT*1 

QAM 

1295 

00  309  J=1,NT 

QAM 

1300 

I0RIG»NPITN1(ITN,J> 

QAM 

1305 

▼EMPI2) =FLOAT I JSFG (I, J,1 ) ) *CC0NVF 

QAM 

1310 

IFIJ.EC.l)  SAVE=TEMP(2> 

QAM 

1315 

TEMP (3>  = SAVE 

QAM 

1320 

TEMP (1 1=0 

QAM 

1325 

IFIJ.EQ.l)  GO  TO  315 

QAM 

1330 

TEMP  III =FL OAT  I JSEG (I,J-1,?I ♦ JSEG (I , J-l , 3> ) *CCONVF 

QAM 

1335 

315 

OFF=OFF*TEMP(l 1 

QAM 

13*0 

0N*0N4TEMP(2> 

QAM 

13*5 

TEMPI5I =0 

QAM 

1350 

TEMP  (6)  = 0 

QAM 

1355 

SAVE  =ON-OFF-FLOAT(JSEG(I,J,2»4JGEG(I, J,3H»CCONVF 

QAM 

1360 

3?1 

TEMPI*!  =ON-OFF 

QAM 

1365 

IFIJ.EQ.l)  GO  TO  320 

QAM 

1370 

TEMP(8>*PL0AT(JSFG(I,J-1,2> dCCONVF  QAH 

TEMP(6?  rLOAT ( JSFG  ( 1 » J-l « 31 ) •CCONVp  QAM 

320  00  319  11*1,6  QAM 

319  TOT(LLI*TOT(LL)dEMP(LL>  QAH 

309  NRITE(6, 2003)  I TNAM C IORIG) , (TEMP (L) ,L*1 , 6)  QAM 

WRITE (6,2009)  (TOT IU.1 ,LL*1 , 6}  QAM 

300  CONTINUE  QAM 

TMD*0  QAH 

00  326  K*l,2  QAM 

00  327  LL-1, 10  QAM 

327  TOT  ILL  1*0.0  QAM 

WRITE(6 ,20 101  VEH(Kt  QAH 

2010  FORMAT ( 1H1«9X«A6,*  REPORT*//l  QAM 

WRITE ( 6,20061  QAH 

DO  316  1*1 , NROUTE  QAM 

ITTPE*MCn ( IROUTE (11/1000,101  QAM 

CR ( ITVPF1*CSTR ( ITY PE)  QAM 

IE(K.EQ.l.ANO.VNAM(ITYPEl.EQ.VFH(2)l  GO  TO  316  QAM 

TF(K.EQ.2.ANO.VNAM(ITVPE).NE.VEH(2>)  GO  TO  316  > QAM 

NAMF*MOC(TROUTE(Il, 10001  QAM 

FEE*0.  QAM 

TC=0  QAM 

DAY*  FLOAT! TROUTEdl/lOOOOOOl*. 01  QAM 

I TN*MOO (IROUTE (11/10000, 1001  QAM 

LA  NO*  (NPITINdTNl-11*  DAY  QAM 

fl=TMUS(I)/  TMAV (I 1 *100.  QAM 

TMC*0.  QAM 

TM=0.0  QAM 

IF(VEH(21.E0.VNAMdTYPEll  GO  TO  317  QAH 

TM=RMI (II *CSTR (ITYPE1  QAM 

FEE*CLAN0*FL0AT(LAN01  QAM 

GO  TO  1317  QAM 

317  TM*CSTR ( TTYPF1 *OAY  QAM 

CR(TTVPF)=TM/RMI  (I!  QAM 

1317  TC=FEE*TM  QAM 

CSTSVS=CSTSVS>TC  QAH 

TMO*TM  0*TMUS ( 1 1 QAM 

IFtTMUSdl.GT.0.01  TMC=TC/TMUSdl  QAM 

IF(TMAVd).GT.O)  TMAC*TC/TMAV  (1 1 QAM 

TOT(ll=TOT(ll*LANO  QAM 

T0T(21*T0T(21 ♦RMT (II  QAM 

TOT(3!=TOT(31 ♦TMAV (II  QAM 

T0T(9)  = T0T(9)  dMUSd)  QAM 

T0T(6)=T0T(6)*TN  QAM 

T0T(71=T0T(71*FEE  QAM 

TOTfOt =TOT(01  *TC  QAM 

VSUMC(ITYPE1*VSUMC (ITVPE1*TC  QAM 

VEHS (IT YPE, 1) =VEHS (ITVPE, 1) *L  AND  QAM 

VEHSdTYPE  , 21  *VEHS  (I  TYPE  ,21*RMI(Il  QAM 

WENS (IT YPE , 3) * VEHS (ITVPE ,3) ♦TMAV (I ) QAM 

YE HS  (ITVPE»9)*VEHS  (ITYPE  ,41  ♦ THUS  (1 1 QAM 

VEHSdTYPE, 6)*VEHSdTYPE, 61  »TM  QAM 

VEHS (IT YPE , 71 *VEHS (ITVPE ,71 ♦ FEE  QAM 

VEHS (IT YPE, 81* VEHS (IT YPE, 81 *TC  QAM 

NRITE(6, 20091  NAME ,L AND, ITVPE, RMI( T1 , TMA V ( I) ,TMUS( II ,FL.  QAM 


1375 

1380 

1385 

1390 

1395 

1900 

1905 

1910 

1915 

1920 

1925 

1930 

1935 

1990 

1995 

1950 

1955 

1960 

1965 

1970 

1975 

1980 

1985 

1990 

1995 

1500 

1505 

1510 

1515 

1520 

1525 

1530 

1535 

1590 

1595 

1550 

1555 

1560 

1565 

1570 

1575 

1580 

1585 

1590 

1595 

1600 

1605 

1610 

1615 

1620 

1625 

1630 

1635 

1690 

1695 
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1 CR(ITYPF) ,TM,FEE,TC,TNAC,THC  QAM  1650 

316  CONTINUE  QAM  1655 

IF(TOT(3).GT.O>  T0T(9)*T0T{ 8>/TOT(3>  QAM  1660 

TF(TOT(4».GT.O)  TOT ( 1 0 ) * TOT (8) /TOT (4)  QAM  1665 

IF  f TOT  (31  .GT.01  TOT(5I=TOT(4)/TOT(3>’100.  QAM  1670 

HR ITE ( 6 ,20 121  (TOT  ( Jl ,J=1, 10)  QAM  1675 

2012  FORMAT! //5X, 'TOTAL*. IX, F6.0 ,4X,3F11.0  .2 X ,F6. 2 ,7X ,F 12. 2 ,F1 0. 0 , QAM  1680 

1 10X,F10.0,1X,?F10.3I  QAM  1685 

TF(K.NE.l)  GO  TO  326  QAM  1690 

COSTA* AO JT*  TOT (81  QAM  1695 

TOT(8)*TOT(S)»COSTA  QAM  1700 

CST5YS=CSTSYS’C0ST  A ’TCOST  QAM  1705 

WRITE'6,999)  AO.IT, COSTA, TOT (8 t QAM  1710 

999  FORMAT! ///5X, ’AIRCRAFT  COST  ADJUSTMENT  FACTOR  =’,F10.3,  QAM  1715 

1 ’.COST  INCRFASE  =*,F15.3,*,  TOTAL  AIRCRAFT  COST  «*,F15.3>  QAM  1720 

326  CONTINUE  QAM  1725 

OO  888  XX* 1,10  QAM  1730 

888  TOT (XX I * 0 QAM  1735 

WRITE (6 , 20 1 3)  QAM  1740 

OO  329  JJ* 1 ,NV A T QAM  1745 

TFIVEHS (JJ.3) .GT.O ) TEMP ( 1 ) = VSUMCI JJI /VERS ( JJ, 3 > QAM  1750 

IF (VEHS(JJ,4) ,GT, 0)  TEMP(2)=VSUMC(JJI/VEHS(JJ,4>  QAM  1755 

TF (VEHS (JJ,3) .GT.01  VEHS ( JJ , 5 > = VEMS ( J J, 4 1 /VEHS ( J J, 3 > *1 00 . QAM  1760 

OO  655  XX*1 , 8 QAM  1765 

655  TOT (XX > * TOT (XX) ♦ VEHS ( JJ.KX)  QAM  1770 

329  MRI TE (6 , 20 14)  VNAM(JJ) , (VFHS(JJ.XX) , XX* 1,5) , CR(JJ)  QAM  1775 

1,(VEHS( JJ,XX) ,XX=6,8) ,TEMP(1),TEMP(?)  QAM  1780 

WRITE (6,5555)  TCOST, COSTA  QAM  1785 

5555  FORMAT(92X,1M’,F8.0,1H’,F11.0,*  (TAX  AOJ)*)  QAM  1790 

TOT(5)=TCT(4)/T0T(3)»100.  QAM  1795 

TEMPrt)=T0T(6)/T0T(2)  QAM  1800 

TOT(8)*TCT(8)*COSTA  ♦ TCOST  QAM  1805 

T0T(9)*TCT(8)/T0T(3)  QAM  1810 

TOT ( 10) =TOT(8) /TOT (4)  QAM  1815 

WRITE(6,4444)  ( TOT ( XX ) , XX* 1 ,5 ) , TEM o ( 1 ) , ( TO T ( XX)  , XX*6 , 7 ) QAM  1820 

1, TCOST,  (TOT (XX) ,XX=8, 101  QAM  1825 

4444  FOPMAT(//4X,*TOTAL*,F9.0,F11.0,1X,2F12.0,2X,F6.2.1X,F7,4,F13.2,  QAM  1830 

1 F10.0,F8.0,F12.0,1X,2F10.3)  QAM  1835 

2013  FORMAT! 1H1 ,4X, ’MANAGEMENT  SUMMAR Y’ /5X , 1 8 <1 H- > //57X  ,*LO AO*  , QAM  1840 

13X, ’RATE*, 6X, ’TOT AL*/5X, • M f A* , 14X, *MI LE S* , 3X , 2 ( 3X , ’TON /MILES’) ,2X,QAM  1845 
2’FACTOR’, 2X,’OER*,6X, ’MILEAGE*, 4X, ’LAN0I8C  * ,2X , ’TERM! N AL’ , 3X,  QAM  1850 

4’T0TAL*,2(3X,*T0N/MILFS’)/  QAM  1855 

45X, ’TYPE*, 4X. ’STOPS’, 3X,  QAM  1860 

5*TRAVELFr*,4X,’ AVAIL ABLE*, 5 X,*H0VEO*,4X ,’ACHVEO*,2X, ’MILE*, 6X,  QAM  1865 

6’COST’ , 8X,  ’FEES’,  2(5X, ’COSTS’) ,3X,»(AV)  COST’ , 3X,’ (MV ) COST*)  QAM  1870 

2014  F0RMAT(4X,A6,F8.n,  F 11 . 0 , IX , 2F 12 . 0 . 2X , QAM  1875 

1F6.2,1X,F7.4,F13.2,F10.0,8X,F12.0,IX,2F10.3)  QAM  1880 

TEMP(l)=CGFN*CCONVF  QAM  1885 

TEMP (2 ) =CSHIP*  CCON VF  QAM  1890 

TEMPI  3 ) *COEL*CCON VF  QAM  1895 

TEMP|4)*CTRANS*CC0NVF  QAM  1900 

TEMP(5)=CSTSYS  QAM  1905 

TEMPI6) *CSTSYS/TMO  QAM  1910 

TEMP(7)*CSTSYS/(TFMP(  3)/2000.)  QAM  1915 

WRITE  16,2008)  I TE MP ( J) , J= 1 ,7 ) QAM  1920 


20 


2008  FORMAT 1///5X, ’TOTAL  POUNDS  GENERATED  ■ • ,F20.2/5X,  QAM 

1 ’TOTAL  FOUNOS  SHIPPEO  » * ,F20. 2/5X, ’TOTAL  POUNOS  DELIVERED  ■ ’,  QAM 

2F12.2/5X, ’TOTAL  POUNOS  TRANSLOAOEO  ■ ’F20.2/5X,  QAM 

3’TOTAL  SYSTEM  COST  !IN  DOLLARS!  ■ ’,F20 . 4/5X, ’TOTAL  COST  PER  TON/MQAM 
4TLE  = ’.F12.4/5X, ’TOTAL  COST  PER  TON  « ’,F12.4>  QAM 

2002  FORMAT! ////8X, ’TERMINAL’, 6X  , QAM 

l’OFF  LOAO’,4X,’ON  LOAO’,  4X*  * THRU  ’«4X*  ’DEPART’,  QAM 

2 4X,’0ELVV  UNL0A0*,4X,’TRANSL0A0’/  QAM 

223X , ’POUNDS’, 6X, ’POUNOS* *4X, ’POUNDS’,  QAM 

3 4X,*POUNDS’7X, ’POUNDS’, 8X, ’POUNOS*!  QAM 

2000  FORMAT I ///  5X, ’TOTAL*, 7X,  QAM 

1 Fl?.0,F11.0,F10.0,4X,F12.0,F13.  0,F1 3.0  ! QAM 

2003  FORMAT! 8X,A4,6X,  FI 2. 0 ,F1 1 . 0 , F 10 . 0 , 2 X, FI 2 . 0, FI 3. 0 ,F1 3 . 01  QAM 

2000  F0RMAT!1N1,4X, ’SEGMENT  OPERATIONS  SUMMARY*/5X,26 <lH-»  QAM 

1///57X,I6,5X,A6  //BX,*SEGMENT*,4X,’TRIPS*,3X,’MILES’,2  C3X, ’TOTAL  AQ AH 
2VAIL*! ,3X, ’TOTAL  LIFT*, 5X, ’TOTAL*, 8X, ’LOAD*  QAM 

1,5X, ’TON/MILES*, OX ,’ POUNDS’ /5X,*FROM’ ,6  X,  QAM 

3 *TO’,18X,’CA8TN  LOA O’, 5X, ’TON /MILES* ,5X  , ’UTILIZE D’4X ,’TON/M I LESQ AH 

5’,5X, ’FACTOR’, 4X, 'OVERFLOWN*, 6X, ’OVERFLOWN*/  QAM 

5 37X, ’POUNDS’, 22X, ’POUNDS’, 7X, ’MOVED’, 6X, ’ACHIEVEO’  QAM 

6, IX, ’UPON  DEPARTURE*, 2X, ’UPON  DEPARTURE*  I QAM 

2001  FORMAT !5X,A4,4X,A4,F7.2  , 3X , F5 .0 , IX , 2 !3X  ,F11 . 0 1 , 2F 12 . 0,  QAM 

1 4X,F8.3,F14.0,2X,F14.0I  QAM 

2004  FORMAT!  5X , ’MANAGEMENT  SUMMARY’/5X ,1 8 II H-l //57X , *LO AO’.  QAM 

13X»*RATE*,4X«*T0TAL*/19X,*V/A**4X»*MILES*,4X*2I*T0N/MILES*,1X1  , IX, QAM 
2’F ACTOR*, 2X, *PF R*, 4 X,*MILEAGE*,4X, ’LANDING  ’,2X, ’TERMI NAL*, 3X,  QAM 

4*T0TAL*,2(3X,*T0N/ MILES* ) / QAM 

4 5X, ’ROUTE*, 2X, ’STOPS*, 2X, *T TPE* , 2X,  QAM 

5*TRA VEL ED*. 2X,* AVAILABLE*, 3 X, ’MOVED*, 4X ,’ACHVED’,2X,*MILE*,4X,  QAM 

G’COST*. 8X,  ’FEES’, 2 (5X, 'COSTS’!  ,3X,*C AVI  COST*, 3X,* CMV)  COST**  QAM 

20  OS  F0RMATI4X,I6,?X,T4,2X,I4,1X,  F9. 0 , 1 X , F 1 0. 0 , IX ,F9. 0 , 2X , QAM 

1F6.2,1X,F7.4,1X,F10.2,1X,F9.0,12X,E8.0,1X,2F10.3!  QAM 

2006  FORMAT !1W1, ’SYSTEM  CARGO  SU MM ARV’/l X, 21  I1H-I ///5 X, *TERN INAL *, 5X , QAM 

I’CARGO*, 2I8X, ’CARGO*! ,9X, 'CARGO*, 10X, ’CARGO*  ,10X, ‘CARGO*  QAM 

2 /7X,*C00E*,5X,*0EL  ILBS1*,3X,  QAM 

2*SH IPD  (LBSI*,3X,  QAM 

2*GEN  !LBSI*,3X,*TRNSLO  !L BS 1 * , 3X ,*UNMOVE 0 ILBS1 * , 3X , *U NSHIPO  ILBSIQAM 

3’  /5X,8H ,3X,  9H , QAM 

43X.11H ,3X,9H , 3X  , 12M , QAM 

5 2 <3X,  1 3H II  QAM 

3000  FORMATI6X, ’TOTAL*  QAM 

l ,2F14. 0,F12, 0.3F15.0I  QAM 

2007  FORMATI7X,A4,?F14.0,F12.0,3F15.0!  QAM 

WRITE  1 6,6661  QAM 

666  FORMAT I1W11  QAM 

WRI TE 16 , 777 1 (KG0GN1(II,CG0GN3(I),T  = 1,NKG0GNI  QAM 

77/  FORM AT  ! 4 1115, FI  0 • 0 I I QAM 

STOP  QAM 

END  QAM 


SUBROUTINE  LINKSfNP.NLINK  , NPT.NPT1 .LINK ,ITNAN) 

LNK 

5 

DIMENSION  NPT ( 6 0) , NPT 1(60,20) , LI NK ( 3000 > , ISAVE ( 5 > , ITNAH (99) 

LNK 

It 

WRITE (6 ,60001 

LNK 

15 

*000 

FORNOTI  1H1 ,63, 'ERROR  TRUCE  - INCOMPLETE  ROUTING'/// 

LNK 

20 

15X, 'COMPLETE!)  SEGMENTS*, 5X, 'ORIGIN  SEGMENTS  ROUTEO') 

LNK 

25 

00  10  I*1,NLINK 

LNK 

30 

IS  *VE(U=M  00 ILINK  (11/100, 1001 

LNK 

35 

ISAVE(2 ) -MOO(LINK( I>/10000, 100) 

LNK 

60 

TSAVE(3)*MOO(LINK(I)/l  000000, 100) 

LNK 

65 

IS A VE (6 1 =NOO (L I NK (11/10**8, 100) 

LNK 

50 

ISAVE (5) 'MOO (LINK (T) ,100) 

LNK 

55 

TCNT=0 

LNK 

60 

NSA VE=6 

LNK 

65 

IE(ISAVE(2).GT.O)  GO  TO  16 

LNK 

70 

ISAVE(2) 'ISAVE (5) 

LNK 

75 

NSAVE'l 

LNK 

00 

GO  TO  IS 

LNK 

05 

16 

IF(ISAVE(3).GT.O)  GO  TO  17 

LNK 

90 

NS A VE*2 

LNK 

95 

IS AVE (3)=ISAVF(5) 

LNK 

100 

GO  TO  IS 

LNK 

105 

17 

IE ( IS AVE  (6),GT,0)  GO  TO  15 

LNK 

110 

NSA VE'3 

LNK 

115 

ISAVE(6)-ISAVE (5) 

LNK 

120 

IS 

no  20  J'1,NSAVE 

LNK 

125 

00  30  K=1,NP 

LNK 

130 

NNP*NPT (K) 

LNK 

135 

TCK'O 

LNK 

160 

00  35  L=1,NNP 

LNK 

165 

IF(ICK.EO.O)  GO  TO  36 

LNK 

150 

TF( I SAVE ( J *1) ,NE,NPT1(K,L))  GO  TO  35 

LNK 

155 

ICNT=ICNT*l 

LNK 

160 

GO  TO  20 

LNK 

165 

36 

IFdSAVE  (J)  .NE.NPT1  (K,L)  ) GO  TO  35 

LNK 

170 

ICK'l 

LNK 

175 

35 

CONTINUE 

LNK 

100 

30 

CONTINUE 

LNK 

105 

20 

CONTINUE 

LNK 

190 

TF(NSAVE.EO.ICNT)  GO  TO  10 

LNK 

195 

NSAVE'NSAVE'l 

LNK 

200 

00  60  J= 1 , NSAVE 

LNK 

205 

KK'ISAVE (J) 

LNK 

210 

60 

ISAVE(J)«ITNAM(KK> 

LNK 

215 

MRITE(6 ,200  0)  I CNT , ( ISA,E (K ) , K=1 ,NS AWE) 

LNK 

220 

2000 

FORMAT (13X»T5»7X»5A6) 

LNK 

225 

!* 

CONTINUE 

LNK 

230 

RETURN 

LNK 

235 

ENO 

LNK 

260 

22 


SUBROUTINE  TABL E (NTERM, ITNAM.NCGN,  KG,CG , IDENT) 

TAB 

5 

DIMENSION  LINE (100,3) ,ITNAM(99) ,K GC7 00 0) ,CG (7000) , IOENT (12) 

tab 

10 

1 

L«XLINE(100> , SNSH(99) ,SMOL(99) 

TAB 

15 

DO  666  1*1, NTERM 

TAB 

20 

SN-  ‘(1)  *0 

TAB 

25 

666 

SNDL (I) *0 

TAB 

30 

SH0*0 

TAB 

35 

SMG*0 

TAB 

40 

WRITE (6  *200  0)  ( IOENT ( I) , 1*1 ,12 ) 

TAB 

45 

2000 

FORMAT! INI, 59X,  12*6///) 

TAB 

50 

TCHECK*  0 

TAB 

55 

LIM1*1 

TAB 

60 

LIN2*6 

TAB 

65 

too 

IF (NTERM.LT ,L IM2)  LTM2*NTERM 

TAB 

70 

TF ( ICHECK.EQ. 0 ) GO  TO  10 

TAB 

75 

WRITE  (6,2001)  (ITNAM(I),T*LIM1,LIM2) 

TAB 

80 

2001 

FORM ST (1N1,1X,////5X«6!*+*,7X,A4,7X)) 

TAB 

85 

WRITE (6, 200 3) 

TAB 

90 

GO  TO  15 

TAB 

95 

10 

WRITE (6, 400 2)  (ITNSM(I), I*LIM1,LIM2) 

TAB 

100 

4002 

FORMAT (5X»6(***,7X,A4,7X)) 

TAB 

105 

WRITE(6 , 2003) 

TAB 

110 

15 

00  100  1*1 ,NTERN 

TAB 

115 

00  150  KK=1, NTERM 

TAB 

120 

XLTNE(KK)*0 

TAB 

125 

00  150  JJ= 1,3 

TAB 

130 

150 

LINE (KK, JJ) =0 

TAB 

135 

00  200  J*LIM1,LIM2 

TAB 

140 

IF(I.EQ.J)  GO  TO  200 

TAB 

145 

JCHECK*  J*I* 10 0 

TAB 

ISO 

00  300  K=1,NCGN 

TAB 

155 

IF(CG(K)  .LF.0.0)  GO  TO  300 

TAB 

160 

TF(JCHECK.NE.MOO(KG(K>, 10000))  GO  TO  300 

TAB 

165 

XLINE (J)=XLINE(J)»CG(K) 

TAB 

170 

I03*M00 (KG(K)/10**8,100) 

TAB 

175 

IF ( 103. GT. 0)  LINE(J,3)*ITNAN(I03) 

TAB 

180 

101  = MOO  (KG (10/10000,100) 

TAB 

185 

I02=M0D(KG(K)/ 1000 000, 100) 

TAB 

190 

IF (101. GT. 0)  LINE(J, 1)=ITNAM(ID1> 

TAB 

195 

I F (102 . GT. 0)  LINE ( J,2)*ITN AM ( 102) 

TAB 

200 

SMSH(n=SMSH(I)*CG(K> 

TAB 

205 

SMOL ( J) *SMOL ( J) *CG (K) 

TAB 

210 

SMG*SMG»CG(K) 

TAB 

215 

SMO=SMO*CG(K) 

TAB 

220 

300 

CONTINUE 

TAB 

225 

200 

CONTINUE 

TAB 

230 

IF ( LIM2 .EO. NTERM)  SO  TO  410 

TAB 

235 

WRITE(6,2002)ITNAM(I), (XLINE) J) ,(LINE(J,K) ,K*1,3» , J*LI PI ,LIM2) 

TAB 

240 

2002 

FORMAT (1X,A4,6(1N. ,F6. 1,3*4)) 

TAB 

2 45 

WRITE (6 ,2003) 

TAB 

250 

2003 

FORMAT  ( 5X,*»*  ,18(6H ),* •) 

TAB 

255 

GO  TO  100 

TAB 

260 

410 

NRITE(6,2002) ITNAM(I) , (XLINE (J) , (LINE(J.K) ,K=1,3) ,J*LIM1,LIM2) 

TAB 

265 

WRITE (6 ,200  3) 

TAB 

270 

100 

CONTINUE 

TAB 

275 

TF1HN2  .NE.NTERNl  GO  TO  160 

TAB 

200 

UNITE (6  »2004l  < ITNAM< 11 , SNSH( 1 1 , SNOt ( 1 1 »I*1*NTERN> 

TAB 

205 

NRITE16. 20051  SNG.SMO 

TAB 

250 

2004 

F0RHAT<1H1,4X,*CARG0  GEN/OEL  SUMMARY* //5Xt  ’TERMINAL 

GENERATEO*  TAB 

295 

1*  DELtVERE0*/<9X,Ai»,2F12.1»//) 

TAB 

300 

2005 

FORMAT 15X, ’TOTAL*. 3X,2F12.1> 

TAB 

305 

RETURN 

TAB 

310 

160 

LIN1 »L I M2*l 

TAB 

315 

LIN2*L INI *5 

TAB 

320 

ICHECK* 1 

TAB 

325 

GO  TO  400 

TAB 

330 

ENO 

TAB 

335 

24 


APPENDIX  B 


SAMPLE  COMPUTER  RUNS 

Proposed  QUICKTRANS  transport  network  of  October  1975  Is  given  as 
sample  run.  Figure  2 is  a related  network  diagram  of  sample. 


QUICKTRANS  STRUCTURE  FY  75 


SCHEDULED  TRUCK  FEEDER 


NZY  DALLAS 


Figure  2 - QUICKTRANS  Route  Diagram 
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NOX  ♦ NP*  ♦ HBE  ♦ MZt  ♦ SUU  ♦ TCN 
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CARGO  GEN/ OEL  SUNN ART 


TERHINAL 

GENERATED 

DELIVERED 

00  V 

673.2 

653.7 

NGU 

1132.2 

1066.8 

TNO 

91.0 

83.0 

CHS 

325.1 

360.6 

NIP 

270.6 

303.1 

COE 

6.0 

35.0 

NO* 

20 . 3 

16.6 

NPA 

128.5 

130.2 

NOE 

96.0 

91.8 

NZT 

728. e 

6 77.7 

SUU 

1036.5 

821.9 

TCN 

361. 8 

627.8 

TOTAl 

A6A8.0 

6668.0 
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(MM  TRACE  - I NCONPIETE  ROUTING 


CONPLETEO  STGNENTS 

ORIGIN  SEGNENTS  ROUTED 

2 

NBE 

NGU 

NIP 

NPA 
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NIP  COF 
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LOAD  RATE  TOTAL 

V/A  NILES  TOM/MILES  TON/MILES  factor  per  mileage  lanoing  terminal  total  ton/miles  tom/miles 
TYPE  STOP?  TRAVELEO  AVAILABLE  MOVrD  ACHVEO  MILE  COST  FEES  COSTS  COSTS  (AVI  COST  (MVI  COST 
L-101  363.  221197.  4854530.  4517171.  86.93  3.5324  788420.38  90750.  879170.  .181  .286 
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